home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / 17 controls / databindingdemo / classes.vb < prev    next >
Text File  |  2002-03-16  |  2KB  |  96 lines
  1. ' a sample class used to demonstrate data binding
  2.  
  3. Class Employee
  4.     Dim m_FirstName As String
  5.     Dim m_LastName As String
  6.     Dim m_BirthDate As Date
  7.     Dim m_PartTimeEmployee As Boolean
  8.     Dim m_DepartmentID As Integer
  9.  
  10.     ' a suitable constructor
  11.  
  12.     Sub New(ByVal fname As String, ByVal lname As String, ByVal bdate As Date, Optional ByVal ptime As Boolean = False, Optional ByVal deptId As Integer = 0)
  13.         Me.FirstName = fname
  14.         Me.LastName = lname
  15.         Me.BirthDate = bdate
  16.         Me.PartTimeEmployee = ptime
  17.         Me.DepartmentID = deptId
  18.     End Sub
  19.  
  20.     ' all property procedures
  21.  
  22.     Property FirstName() As String
  23.         Get
  24.             Return m_FirstName
  25.         End Get
  26.         Set(ByVal Value As String)
  27.             m_FirstName = Value
  28.         End Set
  29.     End Property
  30.  
  31.     Property LastName() As String
  32.         Get
  33.             Return m_LastName
  34.         End Get
  35.         Set(ByVal Value As String)
  36.             m_LastName = Value
  37.         End Set
  38.     End Property
  39.  
  40.     Property BirthDate() As Date
  41.         Get
  42.             Return m_BirthDate
  43.         End Get
  44.         Set(ByVal Value As Date)
  45.             m_BirthDate = Value
  46.         End Set
  47.     End Property
  48.  
  49.     Property PartTimeEmployee() As Boolean
  50.         Get
  51.             Return m_PartTimeEmployee
  52.         End Get
  53.         Set(ByVal Value As Boolean)
  54.             m_PartTimeEmployee = Value
  55.         End Set
  56.     End Property
  57.  
  58.     Property DepartmentID() As Integer
  59.         Get
  60.             Return m_DepartmentID
  61.         End Get
  62.         Set(ByVal Value As Integer)
  63.             m_DepartmentID = Value
  64.         End Set
  65.     End Property
  66.  
  67. End Class
  68.  
  69. Public Class Department
  70.     Dim m_Name As String
  71.     Dim m_ID As Integer
  72.  
  73.     Sub New(ByVal name As String, ByVal id As Integer)
  74.         Me.Name = name
  75.         Me.ID = id
  76.     End Sub
  77.  
  78.     Property Name() As String
  79.         Get
  80.             Return m_Name
  81.         End Get
  82.         Set(ByVal Value As String)
  83.             m_Name = Value
  84.         End Set
  85.     End Property
  86.  
  87.     Property ID() As Integer
  88.         Get
  89.             Return m_ID
  90.         End Get
  91.         Set(ByVal Value As Integer)
  92.             m_ID = Value
  93.         End Set
  94.     End Property
  95.  
  96. End Class